home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ OEM Info Picture.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\OEM Branding"
  5. "NAME"="OEM Picture"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Select Picture"
  9. "DATA 1"="Pictures (*.bmp)|*.bmp"
  10. "DESCRIPTION 1"="You can select any picture you want, but for best usage it should be not bigger than 180x114 pixels. NOTE: Any existing OEM picture will be overwritten!"
  11. "DESCRIPTION 2"="To see the picture, select "Start" | "Settings" | "Control Panel" and click "System"."
  12. "DESCRIPTION 3"=""
  13. "DESCRIPTION 4"="To delete the picture, clear the field and apply your changes."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for the "size not correct" notice."
  19. "COMMENT 3"="Thanks to Eniac [star867@earthlink.net] for the "no <Model> text set" bug notice."
  20. "COMMENT 4"="Thanks to Marc Hanset [mailto:marc.hanset@brutele.be] for the "picture overwritten" bug notice."
  21.  
  22.  
  23. 'Declaration of some constants
  24. sT="General"
  25.  
  26. sI="OEMINFO.INI"
  27. sI=GetWinSysDir & sI 
  28. sF="OEMLOGO.BMP"
  29.  
  30. Sub Plugin_Initialize 
  31.  
  32.  s=GetWinSysDir & sF
  33.  if FileExists(s) then
  34.     SetUIElement 1,s
  35.  end if
  36.  
  37. End Sub
  38.  
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43.  
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  sSource=GetUIElement(1)
  47.  sDest=GetWinSysDir & sF
  48.  
  49.  
  50.  If Len(sSource)>0 then
  51.  
  52.     if UCase(sSource)<>UCase(sDest) then
  53.        If FileExists(sDest) then
  54.           Call FileDelete(sDest)
  55.        end if
  56.  
  57.        Call FileCopy(sSource,sDest)
  58.        Call CheckFile
  59.     end if
  60.  
  61.  else 
  62.     If FileExists(sDest) then
  63.           Call FileDelete(sDest)
  64.     end if      
  65.  End if
  66.  
  67. End Sub
  68.  
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74. Sub CheckFile
  75.  bDispWarning1=false
  76.  
  77.  s=IniReadValue(si,st,"Manufacturer")
  78.  If len(s)=0 then bDispWarning1=true
  79.  
  80.  If bDispWarning1=true then
  81.     Call MsgWarning("No <OEM Name> text set, this value is required to have any OEM items displayed. Please set it through the 'General Information' plug-in or your changes will not be visible.")
  82.  end if
  83. End Sub
  84.